COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	DEFINE	CR="'15",
C00003 ENDMK
C⊗;
DEFINE	CR="'15",
	LF="'12",
	CRLF="'15&'12",
	TAB="'11",
	VT="'13",
	FF="'14";

DEFINE	∀ = "FOREACH",
	#="CVN",
	∂="DATUM",
	\="ARG!LIST",
	∃="BIND",
	$="VALUE";

DEFINE  ! = "COMMENT";

DEFINE 	π = "3.141592653";
DEFINE PI  = "3.141592653";

DEFINE 	MEM="MEMORY",
	LOC="LOCATION",
	MEMLOC(X,T)="MEMORY[LOCATION(X),T]";

REQUIRE "<>" DELIMITERS ;
DEFINE LOOP = <←1 STEP 1 UNTIL > ,
	ITYPE(FOO)=<BEGIN PSOUT("FOO"&" "&CVS(FOO)&" ")END>,
	RTYPE(FOO)=<BEGIN PSOUT("FOO"&" "&CVG(FOO)&" ") END;>,
	OTYPE(FOO)=<BEGIN PSOUT("FOO"&" "&CVOS(FOO)&" ")END>;
DEFINE PPRINT(STR)=
	<PRINT("STR"&" ", STR, " ") >;